home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 016a / bingo2.zip / WHIZ4.SC < prev   
Text File  |  1991-09-16  |  700b  |  34 lines
  1. PROC TablComp4()
  2. CLEAR
  3. CLEARALL
  4.   VIEW "Bingo"
  5.   MOVETO FIELD "NAME"
  6.   EDITKEY
  7.   WHILE ATLAST() = False
  8.     MESSAGE " Evaluating RECORD# "+StrVal(RECNO())+ " of "+StrVal(NRECORDS("Bingo"))
  9.     [F#] = RECNO()
  10.     IF [Field Name-1] <> [Field Name-2] THEN [NAME] = "N" ENDIF
  11.     IF [Field Type-1] <> [Field Type-2] THEN [TYPE] = "T" ENDIF
  12.       DOWN
  13.       LOOP
  14.  ENDWHILE
  15. ENDPROC
  16. TablComp4()
  17. DO_IT!
  18. CLEAR
  19.   VIEW "Bingo"
  20.   MOVETO FIELD "NAME"
  21.   EDITKEY
  22.     MESSAGE " Evaluation FINISHED..."
  23.     BEEP SLEEP 500
  24.     [F#] = RECNO()
  25.     IF [Field Name-1] <> [Field Name-2] THEN [NAME] = "N" ENDIF
  26.     IF [Field Type-1] <> [Field Type-2] THEN [TYPE] = "T" ENDIF
  27.  DO_IT!
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.